home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pcmagazi
/
1989
/
18
/
varmac.wpm
< prev
Wrap
Text File
|
1989-09-18
|
1KB
|
41 lines
{;}VARMAC.WPM∙demonstrates∙putting∙COMMANDS∙in∙variables~
{;}=====================================================~
{;}{VAR∙1}∙holds∙users∙name,∙entered∙from∙keyboard~
{;}{VAR∙2}∙gets∙choice∙of∙header∙or∙footer~
{;}The∙macro∙builds∙a∙command∙in∙{VAR∙3}∙and∙then∙executes∙it~
{TEXT}1~What∙is∙your∙name:~
{ASSIGN}3~~
{LABEL}top~
{CHAR}2~Make∙a∙{^]}1.∙H{^\}eader∙or∙a∙{^]}2.∙F{^\}ooter?∙0~
{CASE}{VAR 2}~
1~dohead~H~dohead~h~dohead~
2~dofoot~F~dofoot~f~dofoot~
~
{;}If∙we∙reach∙this∙spot,∙it∙means∙the∙user's∙input
was∙not∙1,∙2,∙H,∙h,∙F,∙or∙f~
{PROMPT}{BELL}Bad∙input,∙try∙again.~
{WAIT}10~
{GO}top~
{LABEL}good~
{;}Add∙the∙contents∙of∙{VAR∙1}∙to∙the∙commands
in∙{VAR∙3},∙along∙with∙a∙[HRt]∙and∙two
{Exit}∙commands.~
{ASSIGN}3~{VAR 3}{VAR 1}{Enter}{Exit}{Exit}~
{DISPLAY OFF}
{VAR 3}
{DISPLAY ON}
{QUIT}
{LABEL}dohead~
{;}Put∙commands∙to∙create∙a∙header∙into∙{VAR∙3}~
{ASSIGN}3~{Format}phap~
{GO}good~
{LABEL}dofoot~
{;}Put∙commands∙to∙create∙a∙footer∙into∙{VAR∙3}~
{ASSIGN}3~{Format}pfap~
{GO}good~